home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Video_Chat2075237132007.psc / Video Chat / Module1.bas < prev   
BASIC Source File  |  2007-07-13  |  2KB  |  62 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. 'I'm a Chinese undergraduate student
  5. 'excuse my poor English ~_~!
  6. 'Code By TZWSOHO
  7.  
  8. Private Const WS_CHILD = &H40000000
  9. Private Const WS_VISIBLE = &H10000000
  10.  
  11. Private Const SWP_NOMOVE = &H2&
  12. Private Const SWP_NOZORDER = &H4&
  13. Private Const SWP_NOSENDCHANGING = &H400&
  14.  
  15. Private Const WM_USER = &H400
  16. Private Const WM_CAP_START = WM_USER
  17. Private Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
  18. Private Const WM_CAP_DLG_VIDEOCOMPRESSION = WM_CAP_START + 46
  19. Private Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
  20. Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
  21. Private Const WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
  22. Private Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
  23. Private Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
  24. Private Const WM_CAP_GET_STATUS = WM_CAP_START + 54
  25. Private Const WM_CAP_GRAB_FRAME = WM_CAP_START + 60
  26. Private Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25
  27. Private Const WM_CAP_UNICODE_START As Long = WM_USER + 100
  28. Private Const WM_CAP_FILE_SAVEDIBW As Long = (WM_CAP_UNICODE_START + 25)
  29.  
  30. Private Type POINTAPI
  31.      X As Long
  32.      Y As Long
  33. End Type
  34.  
  35. Private Type CAPDRIVERCAPS
  36.      wDeviceIndex As Long
  37.      fHasOverlay As Long
  38.      fHasDlgVideoSource As Long
  39.      fHasDlgVideoFormat As Long
  40.      fHasDlgVideoDisplay As Long
  41.      fCaptureInitialized As Long
  42.      fDriverSuppliesPalettes As Long
  43.      hVideoIn As Long
  44.      hVideoOut As Long
  45.      hVideoExtIn As Long
  46.      hVideoExtOut As Long
  47. End Type
  48.  
  49. Private Type CAPSTATUS
  50.      uiImageWidth As Long
  51.      uiImageHeight As Long
  52.      fLiveWindow As Long
  53.      fOverlayWindow As Long
  54.      fScale As Long
  55.      ptScroll As POINTAPI
  56.      fUsingDefaultPalette As Long
  57.      fAudioHardware As Long
  58.      fCapFileExists As Long
  59.      dwCurrentVideoFrame As Long
  60.      dwCurrentVideoFramesDroppdeoExtIn As LongsR
  61.  
  62. P